unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 
  Dialogs, DB, IfxCustomDataSet, IfxQuery, IfxConnection, IfxDataSet;

type
  TFrame2 = class(TFrame)
    IfxConnection1: TIfxConnection;
    IfxQuery1: TIfxQuery;
    IfxDataSet1: TIfxDataSet;
  public
    constructor Create(AOwner: TComponent); override;
  end;

implementation

{$R *.dfm}

{ TFrame2 }

constructor TFrame2.Create(AOwner: TComponent);
begin
  inherited;
  ShowMessage(IfxQuery1.Text);
  ShowMessage(IfxDataSet1.Text);
  IfxQuery1.ParamByName('num').AsInteger := 101;
  IfxDataSet1.Prepare;
  IfxDataSet1.ParamByName('numer').AsInteger := 104;
  IfxQuery1.Open;
  IfxDataSet1.Open;
end;

end.
